home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / frantic fish_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  10KB  |  330 lines
  1. 4 poke56,60:clr
  2. 5 gosub 8000
  3. 10 poke 53280,0:poke 53281,0
  4. 20 print "[147][152] [176][192][192][192][192][192][192][192][192][192][174]   [208]ress any key to begin"
  5. 30 print " [221]         [221]"
  6. 40 print "[160][221]  [176][192][192][192][192][192][192][189]     [200]igh [211]core:";hs
  7. 50 print "[160][221]  [173][192][192][192][192][192][192][174]     [217]our [211]core:";sc
  8. 60 print "[160][221]         [221]"
  9. 70 print "[160][221]  [176][192][192][192][192][192][192][219][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][178][192][192][192][192][174]"
  10. 80 print "[160][221]  [221]      [221]     [221]     [221]     [221] [221]    [221]"
  11. 90 print "[160][221]  [221] [176][192][192][192][192][179]  [184]  [221] [176][192][174] [171][192][174] [176][192][179] [221] [176][192][192][189]"
  12. 100 print "[160][221]  [221] [221]    [221] [176][192][174] [221] [221] [221] [221] [221] [221] [221] [221] [173][192][192][174]"
  13. 110 print " [221]  [221] [221]    [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]    [221]"
  14. 120 print "[176][177][192][192][177][192][177][192][192][192][174][173][192][189] [173][192][177][192][189] [173][192][189] [173][192][189] [173][192][177][192][192][192][192][189]"
  15. 130 print "[221]         [221] [213]se [211][208][193][195][197] to raise umbrella"
  16. 140 print "[221]  [176][192][192][192][192][192][192][189]      or fend off shark"
  17. 150 print "[221]  [173][192][192][192][192][192][192][174]   [213]se < and > to move from"
  18. 160 print "[221]         [221]         left to right"
  19. 170 print "[221]  [176][192][178][192][192][192][192][219][192][174] [176][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][178][192][192][192][174]";
  20. 180 print "[221]  [221] [221] [176][192][192][179] [221] [221] [221] [176][192][192][179]    [221]    [221] [185] [221]   [221]";
  21. 190 print "[221]  [221] [221] [173][192][192][179] [173][192][189] [221] [173][192][174][221] [176][192][192][179] [221][221] [221][176][192][174][221][176][192][174][221]";
  22. 200 print "[221]  [221] [171][192][192][174] [221] [176][192][174] [221] [176][192][189][221] [221]  [221] [221][221] [221][221] [221][221][221] [221][221]";
  23. 210 print "[221]  [221] [171][192][192][189] [221] [221] [221] [221] [173][192][192][179] [221]  [221] [221][221] [221][221] [221][221][221] [221][221]";
  24. 220 print "[173][192][192][177][192][177][192][192][192][192][177][192][189] [173][192][177][192][192][192][192][177][192][189]  [173][192][177][177][192][177][189] [173][177][189] [173][189]";
  25. 230 geta$:ifa$=""then230
  26. 240 poke53281,14:poke53280,6
  27. 245 print"[147]"chr$(142)"[144]score:                   fishermen:"
  28. 250 print"             [172]    [146][187]"
  29. 260 print"            [188]         [146][162][162][162][187]     [172]  [146][187]"
  30. 270 print"    [172]    [146][187]   [188]             [146][190]  [172]       [146][187]"
  31. 280 print"  [172]       [146][187]     [188]        [146][190]   [188]       [146][190]"
  32. 290 print" [188]            [146][190]    [188]    [146][190]       [188]   [146][190]"
  33. 300 print"     [188]       [146][190]"
  34. 310 print"       [188][162][162][162][146]"
  35. 311 print"                      [169][146][179]"
  36. 312 print"                     [169] [146][179]"
  37. 313 print"                    [169]  [146][179]"
  38. 314 print"                   [169]   [146][179]"
  39. 315 print"                  [169]    [146][179]"
  40. 316 print"                 [169]     [146][179]"
  41. 317 print"                [169]      [146][179]"
  42. 318 print"                [173][177][177][177][177][177][177][179]"
  43. 319 print"              [149][223]          [146][169]"
  44. 320 print"                                       [146][144]";
  45. 330 poke2023,160:poke2023+54272,6
  46. 340 sys49152
  47. 350 print"[144]press return key"
  48. 360 geta$:ifa$<>chr$(13)then360
  49. 370 s1=peek(829):s2=peek(830):s3=peek(831)
  50. 380 sc=int(s1/16)*10+(s1and15)+int(s2/16)*1000+(s2and15)*100
  51. 390 sc=sc+int(s3/16)*100000+(s3and15)*10000
  52. 400 if sc>hs then hs=sc
  53. 410 goto10
  54. 1000 data192,000,000,224,000,000,112,000
  55. 1001 data000,056,000,000,028,000,000,014
  56. 1002 data000,000,007,000,000,003,128,000
  57. 1003 data001,128,000,000,000,000,000,000
  58. 1004 data000,000,000,000,000,000,000,000
  59. 1005 data000,000,000,000,000,000,000,000
  60. 1006 data000,000,000,000,000,000,000,000
  61. 1007 data000,000,000,000,000,000,000,000
  62. 1008 data001,128,000,003,128,000,007,000
  63. 1009 data000,014,000,000,028,000,000,056
  64. 1010 data000,000,112,000,000,224,000,000
  65. 1011 data192,000,000,000,000,000,000,000
  66. 1012 data000,000,000,000,000,000,000,000
  67. 1013 data000,000,000,000,000,000,000,000
  68. 1014 data000,000,000,000,000,000,000,000
  69. 1015 data000,000,000,000,000,000,000,053
  70. 1016 data007,000,000,063,224,000,255,248
  71. 1017 data000,002,000,000,002,000,000,002
  72. 1018 data000,000,002,000,000,002,000,000
  73. 1019 data002,000,000,018,000,000,012,000
  74. 1020 data000,000,000,000,000,000,000,000
  75. 1021 data000,000,000,000,000,000,000,000
  76. 1022 data000,000,000,000,000,000,000,000
  77. 1023 data000,000,000,000,000,000,000,000
  78. 1024 data016,000,000,056,000,000,124,000
  79. 1025 data000,254,000,000,158,000,000,206
  80. 1026 data000,000,124,000,000,000,000,000
  81. 1027 data000,000,000,000,000,000,000,000
  82. 1028 data000,000,000,000,000,000,000,000
  83. 1029 data000,000,000,000,000,000,000,000
  84. 1030 data000,000,000,000,000,000,000,000
  85. 1031 data000,000,000,000,000,000,000,000
  86. 1032 data000,000,000,000,000,000,000,000
  87. 1033 data000,000,000,000,000,000,000,000
  88. 1034 data004,000,000,012,000,000,028,000
  89. 1035 data000,060,001,007,255,195,014,127
  90. 1036 data255,031,255,255,127,255,255,056
  91. 1037 data127,255,003,255,195,000,000,001
  92. 1038 data000,000,000,000,000,000,000,000
  93. 1039 data000,000,000,000,000,000,000,183
  94. 1040 data000,000,000,000,000,000,000,000
  95. 1041 data000,000,000,000,000,000,000,000
  96. 1042 data032,000,000,048,000,000,056,000
  97. 1043 data128,060,000,195,255,224,255,254
  98. 1044 data112,255,255,248,255,255,254,255
  99. 1045 data254,028,195,255,192,128,000,000
  100. 1046 data000,000,000,000,000,000,000,000
  101. 1047 data000,000,000,000,000,000,000,183
  102. 1048 data000,000,000,000,000,000,000,000
  103. 1049 data000,000,255,000,000,255,000,003
  104. 1050 data255,192,000,085,000,000,089,000
  105. 1051 data000,085,064,000,090,000,000,085
  106. 1052 data000,000,255,000,003,255,192,003
  107. 1053 data245,080,003,255,192,003,255,192
  108. 1054 data003,255,192,000,000,000,000,000
  109. 1055 data000,000,000,000,000,000,000,000
  110. 1056 data000,000,000,000,000,000,000,000
  111. 1057 data000,000,255,000,000,255,000,003
  112. 1058 data255,192,000,085,000,000,101,000
  113. 1059 data001,085,000,000,165,000,000,085
  114. 1060 data000,000,255,000,003,255,192,005
  115. 1061 data095,192,003,255,192,003,255,192
  116. 1062 data003,255,192,000,000,000,000,000
  117. 1063 data000,000,000,000,000,000,000,000
  118. 1064 data 256
  119. 8000 print"[147][204]oading [211]prites and [205]achine [204]anguage"
  120. 8010 print"[208]lease be patient..."
  121. 9000 i=248*64
  122. 9010 read a:if a=256 then 9100
  123. 9020 poke i,a:i=i+1:ck=ck+a:goto 9010
  124. 9100 if ck<>19128 then print"[197]rror in data (lines 1000-1064)":stop
  125. 10000 i=49152:ck=0
  126. 10010 read a:if a=256 then 10100
  127. 10020 poke i,a:i=i+1:ck=ck+a:goto 10010
  128. 10100 if ck<>139243 then print"[197]rror in data (lines 49152-50346)":stop
  129. 10200 return
  130. 49152 data 169,3,141,64,3,169
  131. 49158 data 7,141,21,208,169,217
  132. 49164 data 141,1,208,169,1,141
  133. 49170 data 28,208,169,10,141,37
  134. 49176 data 208,169,7,141,38,208
  135. 49182 data 169,0,141,39,208,32
  136. 49188 data 60,193,169,25,141,60
  137. 49194 data 3,169,250,141,250,7
  138. 49200 data 169,209,141,5,208,169
  139. 49206 data 2,141,41,208,169,44
  140. 49212 data 32,238,193,32,156,195
  141. 49218 data 169,0,141,61,3,141
  142. 49224 data 62,3,141,63,3,32
  143. 49230 data 174,195,32,141,196,169
  144. 49236 data 32,141,71,3,169,0
  145. 49242 data 141,72,3,173,60,3
  146. 49248 data 141,67,3,32,4,196
  147. 49254 data 32,238,193,206,67,3
  148. 49260 data 208,245,141,4,212,32
  149. 49266 data 150,192,173,64,3,201
  150. 49272 data 0,208,226,169,0,133
  151. 49278 data 198,169,0,141,21,208
  152. 49284 data 169,0,141,4,212,169
  153. 49290 data 0,162,0,157,0,208
  154. 49296 data 232,224,17,208,248,96
  155. 49302 data 173,30,208,141,69,3
  156. 49308 data 173,65,3,201,1,240
  157. 49314 data 87,173,66,3,201,0
  158. 49320 data 240,46,173,69,3,41
  159. 49326 data 6,201,6,208,11,169
  160. 49332 data 117,32,31,195,32,179
  161. 49338 data 194,76,46,193,173,2
  162. 49344 data 208,201,225,208